home *** CD-ROM | disk | FTP | other *** search
/ Click Press Kit / Click Press Kit.iso / pc / main.dxr / Internal_47_SpanishDoubleState.ls < prev    next >
Encoding:
Text File  |  2006-05-31  |  4.6 KB  |  124 lines

  1. property spriteNum, myStandardMemberSpanish, myRolloverMemberSpanish, myMouseDownMemberSpanish, myStandardMemberSpanish2, myRolloverMemberSpanish2, myMouseDownMemberSpanish2, myMessageTypeSpanish, myMessageSpanish, myMessageTypeSpanish2, myMessageSpanish2, myXSpanish, myYSpanish
  2. global gMaster, gNotes
  3.  
  4. on mDoThis me
  5.   case myMessageTypeSpanish of
  6.     "no code":
  7.       nothing()
  8.     "do":
  9.       if gMaster.pLanguageMode = "spanish" then
  10.         do(myMessageSpanish)
  11.       end if
  12.     "sendAllSprites":
  13.       if gMaster.pLanguageMode = "spanish" then
  14.         sendAllSprites(symbol(myMessageSpanish))
  15.       end if
  16.   end case
  17. end
  18.  
  19. on mSetUpSpanishDouble me, vMode, vSpecial
  20.   if gMaster.pLanguageMode = "english" then
  21.     alert("language should be Spanish")
  22.   else
  23.     case vMode of
  24.       "production", "Flashpaper1":
  25.         if gNotes.pProductionSelected = "yes" then
  26.           sprite(spriteNum).mSetDoubleStateSpanish(2)
  27.         else
  28.           sprite(spriteNum).mSetDoubleStateSpanish(1)
  29.         end if
  30.       "credits", "Flashpaper2":
  31.         if gNotes.pCreditsSelected = "yes" then
  32.           mSetDoubleStateSpanish(me, 2)
  33.         else
  34.           mSetDoubleStateSpanish(me, 1)
  35.         end if
  36.       "slideshow":
  37.         if gMaster.pPhotoList[gMaster.pCount].pSelected = "yes" then
  38.           mSetDoubleStateSpanish(me, 2)
  39.         else
  40.           mSetDoubleStateSpanish(me, 1)
  41.         end if
  42.       "poster":
  43.         if gMaster.pPosterList[vSpecial].pSelected = "yes" then
  44.           mSetDoubleStateSpanish(me, 2)
  45.         else
  46.           mSetDoubleStateSpanish(me, 1)
  47.         end if
  48.       "logo":
  49.         if gMaster.pLogoList[vSpecial].pSelected = "yes" then
  50.           mSetDoubleStateSpanish(me, 2)
  51.         else
  52.           mSetDoubleStateSpanish(me, 1)
  53.         end if
  54.     end case
  55.     sprite(spriteNum).loc = point(myXSpanish, myYSpanish)
  56.   end if
  57. end
  58.  
  59. on mSetDoubleStateSpanish me, vWhichOne
  60.   case vWhichOne of
  61.     1:
  62.       sprite(spriteNum).pState = "state1"
  63.       sprite(spriteNum).mState1GraphicSpanish(me)
  64.     2:
  65.       sprite(spriteNum).pState = "state2"
  66.       sprite(spriteNum).mState2GraphicSpanish(me)
  67.   end case
  68. end
  69.  
  70. on mState1GraphicSpanish me
  71.   sprite(spriteNum).pState = "state1"
  72.   sprite(spriteNum).member = sprite(spriteNum).myStandardMemberSpanish
  73. end
  74.  
  75. on mState2GraphicSpanish me
  76.   sprite(spriteNum).pState = "state2"
  77.   sprite(spriteNum).member = sprite(spriteNum).myStandardMemberSpanish2
  78. end
  79.  
  80. on isOKToAttach me, aSpriteType, aSpriteNum
  81.   tisok = 0
  82.   if aSpriteType = #graphic then
  83.     if PermittedMemberTypes().getOne(sprite(aSpriteNum).member.type) > 0 then
  84.       tisok = 1
  85.     end if
  86.   end if
  87.   return tisok
  88. end
  89.  
  90. on PermittedMemberTypes me
  91.   return [#bitmap]
  92. end
  93.  
  94. on GetSuitableMembers me, permittedTypes
  95.   cursor(4)
  96.   suitableMembersList = []
  97.   maxCastLib = the number of castLibs
  98.   repeat with theCastLib = 1 to maxCastLib
  99.     maxMember = the number of castMembers of castLib theCastLib
  100.     repeat with memberNumber = 1 to maxMember
  101.       theMember = member(memberNumber, theCastLib)
  102.       if permittedTypes.getPos(theMember.type) then
  103.         if theMember.name = EMPTY then
  104.           suitableMembersList.append(theMember)
  105.           next repeat
  106.         end if
  107.         suitableMembersList.append(theMember.name)
  108.       end if
  109.     end repeat
  110.   end repeat
  111.   cursor(-1)
  112.   return suitableMembersList
  113. end
  114.  
  115. on getPropertyDescriptionList me
  116.   theMember = sprite(the currentSpriteNum).member
  117.   memberType = theMember.type
  118.   permittedTypes = PermittedMemberTypes(me)
  119.   theMemberNum = theMember.number
  120.   suitableMembersList = GetSuitableMembers(me, permittedTypes)
  121.   descriptionList = [#myStandardMemberSpanish: [#comment: "- SpanishState1 - MouseUp member", #format: #member, #range: suitableMembersList, #default: theMember], #myRolloverMemberSpanish: [#comment: "SpanishState1 - Rollover member", #format: #member, #range: suitableMembersList, #default: member(theMember)], #myMouseDownMemberSpanish: [#comment: "SpanishState1 - MouseDown member", #format: #member, #range: suitableMembersList, #default: member(theMember)], #myStandardMemberSpanish2: [#comment: "SpanishState2 - MouseUp member", #format: #member, #range: suitableMembersList, #default: theMember], #myRolloverMemberSpanish2: [#comment: "SpanishState2 - Rollover member", #format: #member, #range: suitableMembersList, #default: member(theMember)], #myMouseDownMemberSpanish2: [#comment: "SpanishState2 - MouseDown member", #format: #member, #range: suitableMembersList, #default: member(theMember)], #myXSpanish: [#comment: "X location", #format: #integer, #default: 100, #range: [#min: 0, #max: 800]], #myYSpanish: [#comment: "Y location", #format: #integer, #default: 100, #range: [#min: 0, #max: 600]]]
  122.   return descriptionList
  123. end
  124.